home *** CD-ROM | disk | FTP | other *** search
/ Carousel / CAROUSEL.cdr / mactosh / hc / firehydr.sit / Hydraulics Demo / background_3007.txt < prev    next >
Text File  |  1989-09-03  |  6KB  |  248 lines
  1. -- background: 3007 from stack: in
  2. -- bmap block id: 6621
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: cardBd
  6. ----- HyperTalk script -----
  7. --function scrollLineClicked topMargin
  8. --return (round((the scroll of the target / the textHeight of the target) --+  (((the clickV - top of the target - topMargin) --div the textHeight of the target) + 1)))
  9. --end scrollLineClicked
  10.  
  11. --function lineClicked topMargin
  12. --return ((the clickV - top of the target - topMargin) --div the textHeight of the target) + 1
  13. --end lineClicked
  14.  
  15. on mouseUp
  16.   if Machine() is "MacII" then
  17.     repeat for 2 times
  18.       wait 4
  19.       set icon of bg button "Noz" to Noz 2
  20.       wait 4
  21.       set icon of bg button "Noz" to Noz 3
  22.       wait 4
  23.       set icon of bg button "Noz" to Noz 4
  24.       wait 4
  25.       set icon of bg button "Noz" to Noz 5
  26.       wait 4
  27.       set icon of bg button "Noz" to Noz 6
  28.       wait 4
  29.       set icon of bg button "Noz" to Noz 7
  30.       wait 4
  31.       set icon of bg button "Noz" to Noz 8
  32.       wait 4
  33.       set icon of bg button "Noz" to Noz 9
  34.       wait 4
  35.       set icon of bg button "Noz" to Noz 10
  36.       wait 4
  37.       set icon of bg button "Noz" to Noz 8
  38.       wait 4
  39.       set icon of bg button "Noz" to Noz 9
  40.       wait 4
  41.       set icon of bg button "Noz" to Noz 10
  42.       wait 4
  43.       set icon of bg button "Noz" to Noz 9
  44.       wait 4
  45.       set icon of bg button "Noz" to Noz 8
  46.       wait 4
  47.       set icon of bg button "Noz" to Noz 8
  48.       wait 4
  49.       set icon of bg button "Noz" to Noz 9
  50.       wait 4
  51.       set icon of bg button "Noz" to Noz 10
  52.       wait 4
  53.       set icon of bg button "Noz" to Noz 7
  54.       wait 4
  55.       set icon of bg button "Noz" to Noz 6
  56.       wait 4
  57.       set icon of bg button "Noz" to Noz 5
  58.       wait 4
  59.       set icon of bg button "Noz" to Noz 4
  60.       wait 4
  61.       set icon of bg button "Noz" to Noz 3
  62.       wait 4
  63.       set icon of bg button "Noz" to Noz 2
  64.       wait 4
  65.       set icon of bg button "Noz" to Noz 1
  66.     end repeat
  67.   else
  68.     repeat for 2 times
  69.       wait 1
  70.       set icon of bg button "Noz" to Noz 2
  71.       wait 1
  72.       set icon of bg button "Noz" to Noz 3
  73.       wait 1
  74.       set icon of bg button "Noz" to Noz 4
  75.       wait 1
  76.       set icon of bg button "Noz" to Noz 5
  77.       wait 1
  78.       set icon of bg button "Noz" to Noz 6
  79.       wait 1
  80.       set icon of bg button "Noz" to Noz 7
  81.       wait 1
  82.       set icon of bg button "Noz" to Noz 8
  83.       wait 1
  84.       set icon of bg button "Noz" to Noz 9
  85.       wait 1
  86.       set icon of bg button "Noz" to Noz 10
  87.       wait 1
  88.       set icon of bg button "Noz" to Noz 8
  89.       wait 1
  90.       set icon of bg button "Noz" to Noz 9
  91.       wait 1
  92.       set icon of bg button "Noz" to Noz 10
  93.       wait 1
  94.       set icon of bg button "Noz" to Noz 9
  95.       wait 1
  96.       set icon of bg button "Noz" to Noz 8
  97.       wait 1
  98.       set icon of bg button "Noz" to Noz 8
  99.       wait 1
  100.       set icon of bg button "Noz" to Noz 9
  101.       wait 1
  102.       set icon of bg button "Noz" to Noz 10
  103.       wait 1
  104.       set icon of bg button "Noz" to Noz 7
  105.       wait 1
  106.       set icon of bg button "Noz" to Noz 6
  107.       wait 1
  108.       set icon of bg button "Noz" to Noz 5
  109.       wait 1
  110.       set icon of bg button "Noz" to Noz 4
  111.       wait 1
  112.       set icon of bg button "Noz" to Noz 3
  113.       wait 1
  114.       set icon of bg button "Noz" to Noz 2
  115.       wait 1
  116.       set icon of bg button "Noz" to Noz 1
  117.     end repeat
  118.   end if
  119. end mouseUp
  120.  
  121. on openBackground
  122.   show menuBar
  123. end openBackground
  124.  
  125.  
  126.  
  127.  
  128.  
  129.  
  130.  
  131.  
  132.  
  133.  
  134.  
  135. -- part 1 (button)
  136. -- low flags: 00
  137. -- high flags: A004
  138. -- rect: left=10 top=311 right=333 bottom=91
  139. -- title width / last selected line: 0
  140. -- icon id / first selected line: 0 / 0
  141. -- text alignment: 1
  142. -- font id: 0
  143. -- text size: 12
  144. -- style flags: 0
  145. -- line height: 16
  146. -- part name: Home
  147. ----- HyperTalk script -----
  148. on mouseUp
  149.   go Home
  150. end mouseUp
  151.  
  152.  
  153.  
  154. -- part 2 (button)
  155. -- low flags: 00
  156. -- high flags: 0001
  157. -- rect: left=464 top=117 right=151 bottom=498
  158. -- title width / last selected line: 0
  159. -- icon id / first selected line: 7401 / 7401
  160. -- text alignment: 1
  161. -- font id: 0
  162. -- text size: 12
  163. -- style flags: 0
  164. -- line height: 16
  165. -- part name: Noz
  166. ----- HyperTalk script -----
  167. on mouseUp
  168.   if the optionKey is down then
  169.     visual effect dissolve slowly
  170.     go to cd ID 16039
  171.     exit mouseUp
  172.   else
  173.     put "Try clicking on the background." into msg
  174.     wait 3 secs
  175.     hide msg
  176.   end if
  177. end mouseUp
  178.  
  179.  
  180.  
  181.  
  182. -- part 3 (button)
  183. -- low flags: 00
  184. -- high flags: A004
  185. -- rect: left=397 top=311 right=333 bottom=498
  186. -- title width / last selected line: 0
  187. -- icon id / first selected line: 0 / 0
  188. -- text alignment: 1
  189. -- font id: 0
  190. -- text size: 12
  191. -- style flags: 0
  192. -- line height: 16
  193. -- part name: Problem Set
  194. ----- HyperTalk script -----
  195. on mouseUp
  196.   put "This feature not available for the demo." into msg
  197. end mouseUp
  198.  
  199.  
  200.  
  201.  
  202. -- part 4 (button)
  203. -- low flags: 00
  204. -- high flags: A004
  205. -- rect: left=261 top=311 right=333 bottom=366
  206. -- title width / last selected line: 0
  207. -- icon id / first selected line: 0 / 0
  208. -- text alignment: 1
  209. -- font id: 0
  210. -- text size: 12
  211. -- style flags: 0
  212. -- line height: 16
  213. -- part name: Topic Card
  214. ----- HyperTalk script -----
  215. on mouseUp
  216.  
  217.   hide msg
  218.  
  219.   if the optionKey is down then
  220.     visual effect dissolve
  221.     go to cd ID 4923
  222.   else
  223.     visual effect dissolve
  224.     go to card id 4555
  225.   end if
  226.  
  227. end mouseUp
  228.  
  229.  
  230.  
  231. -- part 6 (button)
  232. -- low flags: 00
  233. -- high flags: A004
  234. -- rect: left=122 top=311 right=333 bottom=230
  235. -- title width / last selected line: 0
  236. -- icon id / first selected line: 0 / 0
  237. -- text alignment: 1
  238. -- font id: 0
  239. -- text size: 12
  240. -- style flags: 0
  241. -- line height: 16
  242. -- part name: Instructions
  243. ----- HyperTalk script -----
  244. on mouseUp
  245.   go to card id 3364
  246. end mouseUp
  247.  
  248.